home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Guinness Encyclopedia
/
The Guinness Encyclopedia - Wayzata Technology (3221-1B) (Disc 1) (1995).iso
/
mac
/
16in_enc.ycl
/
background_5472.txt
< prev
next >
Wrap
Text File
|
1995-08-14
|
5KB
|
237 lines
-- background: 5472 from stack: in.ycl
-- bmap block id: 3717
-- flags: 0000
-- background id: 0
-- name: generic
-- part 22 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=449 right=480 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: prev
----- HyperTalk script -----
on mouseUp
WTIprevious
end mouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=44 top=449 right=480 bottom=99
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: main
----- HyperTalk script -----
on mouseUp
WTImain
end mouseUp
-- part 24 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=98 top=449 right=480 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: goback
----- HyperTalk script -----
on mouseUp
WTIgoback
end mouseUp
-- part 25 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=177 top=449 right=480 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
WTIhelp
end mouseUp
-- part 26 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=231 top=449 right=480 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gallery
----- HyperTalk script -----
on mouseUp
WTIgallery
end mouseUp
-- part 27 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=311 top=449 right=480 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: encyclopedia
----- HyperTalk script -----
on mouseUp
WTIencycl
end mouseUp
-- part 28 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=443 top=449 right=480 bottom=537
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: explorer
----- HyperTalk script -----
on mouseUp
WTIexplore
end mouseUp
-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=537 top=449 right=480 bottom=597
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: quit
----- HyperTalk script -----
on mouseUp
WTIquit
end mouseUp
-- part 30 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=595 top=449 right=480 bottom=640
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: next
----- HyperTalk script -----
on mouseUp
WTInext
end mouseUp
-- part 32 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=11 top=28 right=43 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: x0
----- HyperTalk script -----
on mouseUp
put short name of me into xZ
WTIgoButton xZ
end mouseUp
-- part 33 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=22 top=46 right=69 bottom=144
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: section
----- HyperTalk script -----
on mouseUp
-- put short name of card into xZ
-- put char 1 to 3 of Xz into xZZ
put the short Name of this card into xZ
-- put the short Name of this card
put length(xZ) into xZZ
if char xZZ of xZ = "a" or char xZZ of xZ > "a" then
put empty into char xZZ of xZ
end if
-- put xZ
WTIgoButton xZ
end mouseUp
-- part 34 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=34 top=73 right=97 bottom=144
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nothing
----- HyperTalk script -----
on mouseUp
end mouseUp